1 .
2 .  DEFUSE
3 . BY DIETER HEINERMAN
4 clear 
5 NT=2
10 BC=8;FC=100
20 print ;print 
30 print "          DEFUSE          "
35 print 
40 print " NEED INSTRUCTIONS?"
41 print 
45 print " PRESS 1 for YES"
46 print 
50 print " PRESS 2 for NO"
51 print 
55 for H=1to 2400
60 if &(23)=8goto 90
65 if &(22)=8goto 260
70 next H
80 FC=9;goto 40
90 clear 
100 print 
110 print " YOU  ARE IN A GOVERNNMENT"
120 print "EXPERIMENTAL BUILDING WITH"
130 print " 1,000,000 ROOMS IN IT."
140 print " 100 LONG(0right 99)"
150 print " 100 WIDE(0right 99)"
160 print " 100 HIGH(0right 99)
170 print "  IN IT A BOMB IS HIDDEN "
180 print " THE BOMB SENDS OUT "
190 print " SIGNALS THAT GET STRONGER"
200 print " AS YOU GET CLOSER"
210 print "   YOU HAVE 200 SECONDS   "
220 print "     TO DEACTIVATE IT    "
260 clear 
270 A=rnd (100)-1;B=rnd (100)-1
280 C=rnd (100)-1;if A>0goto 310
290 if B>0goto 310
300 if C=0goto 280
310 D=0;E=0;F=0;G=0
315 print 
320 print " SIGNAL",10000-ABS((A+B+Cmul 100)-(D+E+Fmul 100))
330 print " LONG",D
340 print " WIDE",E
350 print " HIGH",F
360 print " SECONDS",G
365 print 
370 input D,E,F;clear ;G=G+10;if A#Dgoto 400
380 if B#Egoto 400
390 if C=Fgoto 525
400 if G=200goto 420
410 goto 540
420 print " BOOOOOMMM !!! YOU BLEW IT"
425 &(16)=255;&(17)=255;&(18)=135;&(19)=66;&(21)=255;&(22)=255;&(23)=255
426 for X=7to 127;BC=X;next X;for X=16to 23;&(X)=0;next X
430 print "   THE BUILDING BLEW UP  "
440 print " THE BOMB WAS AT  "
450 print " LONG",A
460 print " WIDE",B
470 print " HIGH",C
490 print 
495 print "WANT TO PLAY AGAIN?"
500 print " PRESS 1"
505 print 
510 if &(23)=8goto 260
515 goto 510
520 goto 800
525 print ;print 
530 print " BOMB DEFUSED AT     ",G,"SECONDS";goto 490
540 if D>99goto 610
550 if D<0goto 610
560 if E>99goto 610
570 if E<0goto 610
580 if F>99goto 660
590 if F<0goto 680
600 goto 315
610 print " YOU WALKED OUT A WINDOW"
620 print "ON THE";if F<4goto 740
625 print F,"TH FLOOR!!!!"
630 print " YOU WERE KILLED AND"
640 print 200-G,"SECONDS LATER"
650 print " THE BUILDING BLEW UP!!!";goto 490
660 print " YOU ARE NOW",Fmul 9
670 print " FEET IN THE AIR!!!!";goto 630
680 print " YOU ARE NOW ",-1mul (Fmul 9)
690 print " FEET UNDERGROUND!!!!";goto 630
740 if F=1goto 770
750 if F=2goto 780
760 if F=3goto 790
770 print " 1ST FLOOR";goto 630
780 print " 2ND FLOOR";goto 630
790 print " 3RD FLOOR";goto 630
800 clear 
810 goto 490
:return ;run 
